home *** CD-ROM | disk | FTP | other *** search
/ Business Heaven / Business Heaven.iso / office / logmiles / files.cla < prev    next >
Text File  |  1993-07-27  |  1KB  |  30 lines
  1. !∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙
  2.  
  3. MILES__T      TABLE            !Table to store tagged record pointers
  4. MILES__P        LONG.          !File pointer
  5. MILES__C        SHORT          !File changed in a FORM
  6. MILES         FILE,PRE(MIL),CREATE,RECLAIM
  7. BY_MILES       KEY(MIL:ODO,MIL:DATE),DUP,NOCASE,OPT
  8. BY_DATE           KEY(MIL:DATE,MIL:ODO),DUP,NOCASE,OPT
  9. RECORD           RECORD
  10. ODO         DECIMAL(7,1)
  11. CAT         STRING(1)             !Classification / category
  12. DATE         LONG
  13. GALS         DECIMAL(5,3)
  14. DESC         STRING(25)
  15.          . .
  16.  
  17. !∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙
  18.  
  19. CATS__T       TABLE            !Table to store tagged record pointers
  20. CATS__P         LONG.          !File pointer
  21. CATS__C         SHORT          !File changed in a FORM
  22. CATS         FILE,PRE(CAT),CREATE,RECLAIM
  23. BYCODE           KEY(CAT:CODE),NOCASE,OPT
  24. RECORD           RECORD
  25. CATEGORY     STRING(10)             !Category name to display
  26. CODE         STRING(1)             !code letter
  27. COUNT         DECIMAL(7,1)             !accumulator for totals
  28.          . .
  29.  
  30.